#!/usr/bin/perl -w

# 7.94 (13 March 2018)

use warnings;
my %IQsOQdemWnRpKqgX9ckOY7a;
my $FglgkIk3FkJuea4yg45GKKS = `domainname`;
my $ZwZqNNpTEP2ZUydCDbVgEia = $ARGV[1];
my $Vwt2avzPbQvkc1fZmWgFRkU = $ARGV[2];
chomp $FglgkIk3FkJuea4yg45GKKS;
my @Fgq5sA_PwVW_ShNX38akDvi = split(/(?<!\\) /, $ARGV[4]);
foreach my $SQshiLOhTwBvAso8GKW70DN (@Fgq5sA_PwVW_ShNX38akDvi)
{if ($SQshiLOhTwBvAso8GKW70DN =~ m/(.*)=(.*)/)
{my $JwW2OO_Egq8Fkrsb5GUVeY0 = $1;
my $Pgld7xc58fAiA5CvSN3mXQC = $2;
$Pgld7xc58fAiA5CvSN3mXQC =~ s/\\(.)/$1/g;
$IQsOQdemWnRpKqgX9ckOY7a{$JwW2OO_Egq8Fkrsb5GUVeY0} = $Pgld7xc58fAiA5CvSN3mXQC;
}elsif ($SQshiLOhTwBvAso8GKW70DN =~ m/^no(.*)/)
{$IQsOQdemWnRpKqgX9ckOY7a{$1} = 0;
}else
{$IQsOQdemWnRpKqgX9ckOY7a{$SQshiLOhTwBvAso8GKW70DN} = 1;
}}my $ZgykPb8IIdfT44yU5dfsq3W = "";
if (defined ($ARGV[$#ARGV])) { $ZgykPb8IIdfT44yU5dfsq3W = $ARGV[$#ARGV] }if (-f "$ZgykPb8IIdfT44yU5dfsq3W") { open theInputSource, "<" . $ZgykPb8IIdfT44yU5dfsq3W }else { open theInputSource, "-" }while (defined (my $MAYuL63LQjlLfvOn4nR_IaT = <theInputSource>))
{if ($MAYuL63LQjlLfvOn4nR_IaT =~ /^\@PJL\s+ENTER\s+LANGUAGE/)
{my $Cw_v1jZTUivIYCANHUtrAPD = "Normal";
if (defined($IQsOQdemWnRpKqgX9ckOY7a{"PrintMode"}))
{$Cw_v1jZTUivIYCANHUtrAPD = $IQsOQdemWnRpKqgX9ckOY7a{"PrintMode"};
}print "\@PJL COMMENT DSSC PRINT USERLOGIN=" . $ZwZqNNpTEP2ZUydCDbVgEia . "\n";
print "\@PJL COMMENT DSSC JOB NAME=" . $Vwt2avzPbQvkc1fZmWgFRkU . "\n";
print "\@PJL COMMENT DSSC PRINT PRINTMODE=" . uc $Cw_v1jZTUivIYCANHUtrAPD . "\n";
if (length($FglgkIk3FkJuea4yg45GKKS) > 0)
{print "\@PJL COMMENT DSSC PRINT DOMAINNAME=" . $FglgkIk3FkJuea4yg45GKKS . "\n";
print "\@PJL COMMENT DSSC PRINT CERTIFIED=1\n";
}else
{print "\@PJL COMMENT DSSC PRINT CERTIFIED=0\n";
}}print($MAYuL63LQjlLfvOn4nR_IaT);
}
